Codigos programacion
- 2. CODIGOS PROGRAMACIONPROGRAMAR EL TOOLBARSelect case button. IndexCase 1Form1.hideForm2.showEnd select
- 3. CODIGOS PROGRAMACIONREPRODUCIR SONIDO MIDI Midi.command=”stop”Midi.command =”close”Midi. Devicetype=”sequencer”Midi.filename=”/sonido/fa.mid”Midi.command=”open”Midi.command=”play”
- 4. CODIGOS PROGRAMACIONREPRODUCIR VIDEO AVI CON UN LISTBOXMmcontrol1.command=”close”Mmcontrol1.devicetype=”avivideo”Select case list1.listindexCase 0Mmcontrol1.filename=”c:/a.avi”End selectMmcontrol1.hwnddisplay=picture1.hwndMmcontrol1.command=”open”Mmcontrol1.command=”play”
- 5. CODIGOS PROGRAMACIONREPRODUCIR UN SONIDO MIDI COMO FONDO DE UN FORMULARIO Private sub form_load()Midi.command=”stop”Midi.command=”close”Midi.devicetype=sequencer”Midi. Filename=”c:/sonido/another.mid”Midi.command=”open”Midi.command=”play”End sub
- 6. CODIGOS PROGRAMACIONCREAR UNA CONTRASEÑA AL INGRESAR A UN FORMULARIOPrivate sub Form loadDim clave as string * 5Dim cuenta as integerDo until ucase$ (clave) = “FABIO” or cuenta = 3Clave= inputbox$ (“palabra de paso”)If ucase$ (clave) <> “FABIO” thenMsgbox” la palabra no es correcta”,16, “palabras de paso”End ifCuenta=cuenta+1LoopIf cuenta=3 then endEnd ifEnd sub